home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / term / extras / source / term-source.lha / CommandPanel.c < prev    next >
C/C++ Source or Header  |  1995-02-07  |  5KB  |  251 lines
  1. /*
  2. **    CommandPanel.c
  3. **
  4. **    Editing panel for command sequences
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_USE=1000,GAD_CANCEL,GAD_DEFAULT };
  13.  
  14. BYTE __regargs
  15. CommandPanel(struct Configuration *Config,BYTE *Default)
  16. {
  17.     STATIC LONG LabelTable[] =
  18.     {
  19.         MSG_COMMANDPANEL_STARTUP_LOGIN_MACRO_GAD,
  20.         MSG_COMMANDPANEL_LOGIN_MACRO_GAD,
  21.         MSG_COMMANDPANEL_LOGOFF_MACRO_GAD,
  22.         MSG_COMMANDPANEL_UPLOAD_MACRO_GAD,
  23.         MSG_COMMANDPANEL_DOWNLOAD_MACRO_GAD
  24.     };
  25.  
  26.     LONG             i,Max,Len;
  27.     struct LayoutHandle    *Handle;
  28.     BYTE             Cancel = FALSE;
  29.  
  30.     SaveConfig(Config,PrivateConfig);
  31.  
  32.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  33.         LH_LocaleHook,    &LocaleHook,
  34.         LH_ExitFlush,    FALSE,
  35.     TAG_DONE))
  36.     {
  37.         struct Window *PanelWindow;
  38.  
  39.         for(i = Max = 0 ; i < 5 ; i++)
  40.         {
  41.             if((Len = LT_LabelChars(Handle,LocaleString(LabelTable[i]))) > Max)
  42.                 Max = Len;
  43.         }
  44.  
  45.         LT_New(Handle,
  46.             LA_Type,    VERTICAL_KIND,
  47.         TAG_DONE);
  48.         {
  49.             LT_New(Handle,
  50.                 LA_Type,    VERTICAL_KIND,
  51.                 LA_LabelID,    MSG_V36_0026,
  52.             TAG_DONE);
  53.             {
  54.                 LT_New(Handle,
  55.                     LA_Type,    STRING_KIND,
  56.                     LA_LabelID,    MSG_COMMANDPANEL_STARTUP_LOGIN_MACRO_GAD,
  57.                     LA_STRPTR,    Config -> CommandConfig -> StartupMacro,
  58.                     LA_Chars,    30,
  59.                     LA_LabelChars,    Max,
  60.                     GTST_MaxChars,    255,
  61.                 TAG_DONE);
  62.  
  63.                 LT_New(Handle,LA_Type,XBAR_KIND,TAG_DONE);
  64.  
  65.                 LT_New(Handle,
  66.                     LA_Type,    STRING_KIND,
  67.                     LA_LabelID,    MSG_COMMANDPANEL_LOGIN_MACRO_GAD,
  68.                     LA_STRPTR,    Config -> CommandConfig -> LoginMacro,
  69.                     LA_Chars,    30,
  70.                     LA_LabelChars,    Max,
  71.                     GTST_MaxChars,    255,
  72.                 TAG_DONE);
  73.  
  74.                 LT_New(Handle,
  75.                     LA_Type,    STRING_KIND,
  76.                     LA_LabelID,    MSG_COMMANDPANEL_LOGOFF_MACRO_GAD,
  77.                     LA_STRPTR,    Config -> CommandConfig -> LogoffMacro,
  78.                     LA_LabelChars,    Max,
  79.                     GTST_MaxChars,    255,
  80.                 TAG_DONE);
  81.  
  82.                 LT_EndGroup(Handle);
  83.             }
  84.  
  85.             LT_New(Handle,
  86.                 LA_Type,        VERTICAL_KIND,
  87.                 LA_LabelID,        MSG_V36_0027,
  88.                 LAGR_LastAttributes,    TRUE,
  89.             TAG_DONE);
  90.             {
  91.                 LT_New(Handle,
  92.                     LA_Type,    STRING_KIND,
  93.                     LA_LabelID,    MSG_COMMANDPANEL_UPLOAD_MACRO_GAD,
  94.                     LA_STRPTR,    Config -> CommandConfig -> UploadMacro,
  95.                     LA_Chars,    30,
  96.                     LA_LabelChars,    Max,
  97.                     GTST_MaxChars,    255,
  98.                 TAG_DONE);
  99.  
  100.                 LT_New(Handle,
  101.                     LA_Type,    STRING_KIND,
  102.                     LA_LabelID,    MSG_COMMANDPANEL_DOWNLOAD_MACRO_GAD,
  103.                     LA_STRPTR,    Config -> CommandConfig -> DownloadMacro,
  104.                     LA_LabelChars,    Max,
  105.                     GTST_MaxChars,    255,
  106.                 TAG_DONE);
  107.  
  108.                 LT_EndGroup(Handle);
  109.             }
  110.  
  111.             LT_New(Handle,
  112.                 LA_Type,VERTICAL_KIND,
  113.             TAG_DONE);
  114.             {
  115.                 LT_New(Handle,
  116.                     LA_Type,    XBAR_KIND,
  117.                     LAXB_FullSize,    TRUE,
  118.                 TAG_DONE);
  119.  
  120.                 LT_EndGroup(Handle);
  121.             }
  122.  
  123.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  124.                 LAGR_SameSize,    TRUE,
  125.                 LAGR_Spread,    TRUE,
  126.             TAG_DONE);
  127.             {
  128.                 LT_New(Handle,
  129.                     LA_Type,    BUTTON_KIND,
  130.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  131.                     LA_ID,        GAD_USE,
  132.                     LABT_ReturnKey,    TRUE,
  133.                     LABT_ExtraFat,    TRUE,
  134.                 TAG_DONE);
  135.  
  136.                 if(Default)
  137.                 {
  138.                     LT_New(Handle,
  139.                         LA_Type,    BUTTON_KIND,
  140.                         LA_LabelID,    MSG_GLOBAL_DEFAULT_GAD,
  141.                         LA_ID,        GAD_DEFAULT,
  142.                         LABT_ExtraFat,    TRUE,
  143.                     TAG_DONE);
  144.                 }
  145.  
  146.                 LT_New(Handle,
  147.                     LA_Type,    BUTTON_KIND,
  148.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  149.                     LA_ID,        GAD_CANCEL,
  150.                     LABT_EscKey,    TRUE,
  151.                     LABT_ExtraFat,    TRUE,
  152.                 TAG_DONE);
  153.  
  154.                 LT_EndGroup(Handle);
  155.             }
  156.  
  157.             LT_EndGroup(Handle);
  158.         }
  159.  
  160.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_COMMANDPANEL_COMMAND_PREFERENCES_GAD),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  161.             LAWN_HelpHook,        &GuideHook,
  162.             LAWN_Parent,        Window,
  163.             WA_DepthGadget,        TRUE,
  164.             WA_CloseGadget,        TRUE,
  165.             WA_DragBar,        TRUE,
  166.             WA_RMBTrap,        TRUE,
  167.             WA_Activate,        TRUE,
  168.         TAG_DONE))
  169.         {
  170.             struct IntuiMessage    *Message;
  171.             BOOLEAN             Done = FALSE;
  172.             ULONG             MsgClass,
  173.                          MsgQualifier;
  174.             UWORD             MsgCode;
  175.             struct Gadget        *MsgGadget;
  176.  
  177.             GuideContext(CONTEXT_COMMAND);
  178.  
  179.             PushWindow(PanelWindow);
  180.  
  181.             LT_ShowWindow(Handle,TRUE);
  182.  
  183.             do
  184.             {
  185.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  186.                 {
  187.                     SaveConfig(PrivateConfig,Config);
  188.  
  189.                     break;
  190.                 }
  191.  
  192.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  193.                 {
  194.                     MsgClass    = Message -> Class;
  195.                     MsgQualifier    = Message -> Qualifier;
  196.                     MsgCode        = Message -> Code;
  197.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  198.  
  199.                     GT_ReplyIMsg(Message);
  200.  
  201.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  202.  
  203.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  204.                     {
  205.                         SaveConfig(PrivateConfig,Config);
  206.  
  207.                         Done = TRUE;
  208.                     }
  209.  
  210.                     if(MsgClass == IDCMP_GADGETUP)
  211.                     {
  212.                         switch(MsgGadget -> GadgetID)
  213.                         {
  214.                             case GAD_USE:
  215.  
  216.                                 LT_UpdateStrings(Handle);
  217.  
  218.                                 Done = TRUE;
  219.                                 break;
  220.  
  221.                             case GAD_CANCEL:
  222.  
  223.                                 SaveConfig(PrivateConfig,Config);
  224.  
  225.                                 Cancel = Done = TRUE;
  226.                                 break;
  227.  
  228.                             case GAD_DEFAULT:
  229.  
  230.                                 *Default = TRUE;
  231.  
  232.                                 Done = TRUE;
  233.                                 break;
  234.                         }
  235.                     }
  236.                 }
  237.             }
  238.             while(!Done);
  239.  
  240.             PopWindow();
  241.         }
  242.  
  243.         LT_DeleteHandle(Handle);
  244.     }
  245.  
  246.     if(Default)
  247.         return((BYTE)(!Cancel));
  248.     else
  249.         return((BYTE)memcmp(PrivateConfig -> CommandConfig,Config -> CommandConfig,sizeof(struct CommandSettings)));
  250. }
  251.